home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Carousel
/
CAROUSEL.cdr
/
mactosh
/
hc
/
form1040.sit
/
Form 1040
/
card_3260.txt
< prev
next >
Wrap
Text File
|
1988-02-12
|
18KB
|
735 lines
-- card: 3260 from stack: in
-- bmap block id: 3598
-- flags: 4000
-- background id: 6557
-- name: 10
----- HyperTalk script -----
On OpenCard
Put 10 Into Bkgnd field ID 26
end OpenCard
On ClearInfo
Set hilite of Card button ID 12 of Card ID 3260 to false
Set hilite of Card button ID 13 of Card ID 3260 to false
Set hilite of Card button ID 14 of Card ID 3260 to false
Put 0 into Card field ID 5 of Card ID 3260
Put 0 into Card field ID 6 of Card ID 3260
Put 0 into Card field ID 17 of Card ID 3260
Put 0 into Card field ID 21 of Card ID 3260
end ClearInfo
On Signal
Global Button22,Button23
If Button22 = True then
Send "Signal" to Card button ID 22 of card ID 2598
else
Send "Signal" to Card button ID 23 of card ID 2598
end if
end Signal
On FindStatus
Global CardNumber
Get hilite of Card button ID 1 of Card ID 2982
Put it into Button1
Get hilite of Card button ID 2 of Card ID 2982
Put it into Button2
Get hilite of Card button ID 3 of Card ID 2982
Put it into Button3
Get hilite of Card button ID 4 of Card ID 2982
Put it into Button4
Get hilite of Card button ID 5 of Card ID 2982
Put it into Button5
If Button1 = true or Button4 = True then
Send "DoButton12" to Card Button ID 12 of Card ID 3260
else if Button2 = true or Button5 = true then
Send "DoButton13" to Card Button ID 13 of Card ID 3260
else if Button3 = true then
Send "DoButton14" to Card Button ID 14 of Card ID 3260
Else
Get short number of this card
Put it into CardNumber
Go to Card ID 2982
Put "Please select a Filing Status Box." into Card field ID 6 of Card ID 2982
end if
end FindStatus
-- part 1 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=88 top=78 right=107 bottom=419
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
-- part 2 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=98 top=110 right=125 bottom=419
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
-- part 3 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=108 top=128 right=169 bottom=419
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
-- part 4 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=394 top=154 right=169 bottom=419
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name:
-- part 5 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=418 top=154 right=169 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
-- part 6 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=418 top=186 right=201 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
On MouseUp
Send "MouseUp" to Card Button ID 24 of Card ID 3260
End MouseUp
-- part 7 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=394 top=186 right=201 bottom=419
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name:
-- part 12 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=90 top=129 right=141 bottom=109
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
On MouseUp
Set Cursor to 4
Send "DeleteRest" to Card button ID 12 of Card ID 3260
Send "GetAnswer" to Card Button ID 12 of Card ID 3260
End MouseUp
on DoButton12
Global Flag1
Send "DeleteRest" to Card button ID 12 of Card ID 3260
If Flag1 is True then
Send "Single" to Card Button ID 12 of Card ID 3260
else
Send "HeadButton" to Card Button ID 12 of Card ID 3260
end if
end DoButton12
On Single
Set Cursor to 4
Global TotalBox
Put Card field ID 11 of Card ID 2598 into TotalBox
If TotalBox = 0 then
Put 2540 into Card field ID 5 of Card ID 3260
Set hilite of Card button ID 12 of Card ID 3260 to True
else
Set hilite of Card button ID 12 of Card ID 3260 to False
Put 0 into card field ID 5 of card ID 3260
Send "SingleButton" to Card field ID 11 of Card ID 2598
End If
End Single
On HeadButton
Set Cursor to 4
Global TotalBox
Put Card field ID 11 of Card ID 2598 into TotalBox
If TotalBox = 0 then
Set hilite of Card button ID 12 of Card ID 3260 to True
Put 2540 into Card field ID 5 of Card ID 3260
else
Set hilite of Card button ID 12 of Card ID 3260 to False
Put 0 into card field ID 5 of card ID 3260
Send "HeadButton" to Card field ID 11 of Card ID 2598
End If
End HeadButton
On ButtonOff
Set hilite of Card button ID 12 of Card ID 3260 to false
Put 0 into Card field ID 5 of Card ID 3260
Send "ClearInfo" to Card ID 2982
end ButtonOff
On Signal
Visual effect wipe Right
Go to Card ID 3260
Repeat 7 times
Get hilite of Card button ID 12 of Card ID 3260
If it is True then
Set hilite of Card Button ID 12 to False
else
Set hilite of Card Button ID 12 to True
end if
end Repeat
end Signal
On GetAnswer
Set Cursor to 4
Put hilite of Card button ID 12 of Card ID 3260 into Button12
If Button12 = true then
Answer "Choose your filing status" with "Head" or "Single"
Set Cursor to 4
If it is "Single" then
Send "SingleT" to Card button ID 1 of Card ID 2982
Set hilite of Card Button ID 1 of Card ID 2982 to True
Send "Single" to Card Button ID 12 of Card ID 3260
else
Set hilite of Card Button ID 4 of Card ID 2982 to True
Send "HeadT" to Card button ID 4 of Card ID 2982
Send "HeadButton" to Card Button ID 12 of Card ID 3260
End if
else
Send "ButtonOff" to Card Button ID 12 of Card ID 3260
end if
End GetAnswer
On DeleteRest
Set hilite of Card button ID 13 of Card ID 3260 to false
Set hilite of Card button ID 14 of Card ID 3260 to false
end DeleteRest
-- part 13 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=90 top=142 right=154 bottom=109
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
On MouseUp
Set Cursor to 4
Send "DeleteRest" to Card button ID 13 of Card ID 3260
Send "GetAnswer" to Card Button ID 13 of Card ID 3260
End MouseUp
on DoButton13
Set hilite of Card button ID 13 of Card ID 3260 to True
Send "DeleteRest" to Card button ID 13 of Card ID 3260
Send "MarriedJoint" to Card Button ID 13 of Card ID 3260
end DoButton13
On MarriedJoint
Set Cursor to 4
Global TotalBox
Put Card field ID 11 of Card ID 2598 into TotalBox
If TotalBox = 0 then
Put 3760 into Card field ID 5 of Card ID 3260
Set hilite of Card button ID 13 of Card ID 3260 to True
else
Set hilite of Card button ID 13 of Card ID 3260 to False
Put 0 into card field ID 5 of card ID 3260
Send "MarriedJ" to Card field ID 11 of Card ID 2598
End If
End MarriedJoint
On ButtonOff
Set hilite of Card button ID 13 of Card ID 3260 to false
Put Zero into Card field ID 5 of Card ID 3260
Send "ClearInfo" to Card ID 2982
end ButtonOff
On GetAnswer
Global Flag3
Set Cursor to 4
Put hilite of Card button ID 13 of Card ID 3260 into Button13
If Button13 = true then
Answer "Choose your filing status" with "Joint" or "Widow(er)"
Set Cursor to 4
If it is "Joint" then
Send "MarriedJointT" to Card button ID 2 of Card ID 2982
Set hilite of Card Button ID 2 of Card ID 2982 to True
else
Set hilite of Card Button ID 5 of Card ID 2982 to True
Send "WidowT" to Card button ID 5 of Card ID 2982
End if
Send "MarriedJoint" to Card Button ID 13 of Card ID 3260
else
Send "ButtonOff" to Card Button ID 13 of Card ID 3260
end if
End GetAnswer
On DeleteRest
Set hilite of Card button ID 12 of Card ID 3260 to false
Set hilite of Card button ID 14 of Card ID 3260 to false
end DeleteRest
-- part 14 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=90 top=155 right=167 bottom=109
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
On MouseUp
Set Cursor to 4
Send "DeleteRest" to Card button ID 14 of Card ID 3260
Send "GetAnswer" to Card Button ID 14 of Card ID 3260
End MouseUp
on DoButton14
Set hilite of Card button ID 14 of Card ID 3260 to True
Send "DeleteRest" to Card button ID 14 of Card ID 3260
Send "MarriedSeperate" to Card Button ID 14 of Card ID 3260
end DoButton14
On MarriedSeperate
Set Cursor to 4
Global TotalBox
Put Card field ID 11 of Card ID 2598 into TotalBox
If TotalBox = 0 then
Set hilite of Card button ID 14 of Card ID 3260 to True
Put 1880 into Card field ID 5 of Card ID 3260
else
Set hilite of Card button ID 14 of Card ID 3260 to False
Put 0 into card field ID 5 of card ID 3260
Send "MarriedS" to Card field ID 11 of Card ID 2598
End If
End MarriedSeperate
On ButtonOff
Set hilite of Card button ID 14 of Card ID 3260 to false
Put Zero into Card field ID 5 of Card ID 3260
end ButtonOff
On GetAnswer
Global Flag3
Set Cursor to 4
Put hilite of Card button ID 14 of Card ID 3260 into Button14
If Button14 = true then
Set Cursor to 4
Send "MarriedSeperateT" to Card button ID 3 of Card ID 2982
Set hilite of Card Button ID 3 of Card ID 2982 to True
Send "MarriedSeperate" to Card Button ID 14 of Card ID 3260
else
Put Zero into Card field ID 5 of Card ID 3260
end if
End GetAnswer
On DeleteRest
Set hilite of Card button ID 12 of Card ID 3260 to false
Set hilite of Card button ID 13 of Card ID 3260 to false
end DeleteRest
-- part 15 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=88 top=173 right=203 bottom=419
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
-- part 16 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=88 top=205 right=235 bottom=419
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
-- part 17 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=418 top=218 right=233 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
On MouseUp
Send "MouseUp" to Card Button ID 25 of Card ID 3260
End MouseUp
-- part 18 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=89 top=237 right=266 bottom=419
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
-- part 19 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=394 top=250 right=265 bottom=419
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name:
-- part 20 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=394 top=218 right=233 bottom=419
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name:
-- part 21 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=418 top=250 right=265 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
On MouseUp
Send "MouseUp" to Card Button ID 23 of Card ID 3260
End MouseUp
-- part 23 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=195 top=236 right=250 bottom=264
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Subtract
----- HyperTalk script -----
on mouseUp
Set cursor to 4
Put Card field ID 17 of Card ID 3260 into Line35 -- Line 35
If Line35 = 0 then
Send "MouseUp" to Card button ID 25 of Card ID 3260
Put Card field ID 17 of Card ID 3260 into Line35 -- Line 35
end IF
Put Card field ID 6 of Card ID 3260 into Line34 -- Line 34
If Line34 = 0 then
Send "MouseUp" to Card button ID 24 of Card ID 3260
Put Card field ID 6 of Card ID 3260 into Line34 -- Line 34
end IF
Put (Line34 - Line35) into Total
If total >= 0 then
Put total into Card field ID 21 of Card ID 3260
else
Put 0 into Card field ID 21 of Card ID 3260
end if
end mouseUp
-- part 24 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=108 top=173 right=187 bottom=177
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Subtract
----- HyperTalk script -----
on mouseUp
Set cursor to 4
Put Card field ID 25 of Card ID 2598 into Temp -- Line 33a
Put Card field ID 5 of Card ID 3260 into Temp1 -- Line 33b
Put Card field ID 3 of Card ID 2598 into Total -- Line 31
If temp1 = 0 and Temp = 0 then
Send "FindStatus" to Card ID 3260
If temp1 = 0 and Temp = 0 then
Exit MouseUp
End if
End if
If Total <= 0 then
Send "MouseUp" to Card button ID 4 Of Card ID 7846
Put Card field ID 3 of Card ID 2598 into Total
If Total <= 0 then
Exit MouseUp
end if
end if
If Temp > Temp1 then
Put Temp into itemize
else
put Temp1 into itemize
end if
Put (Total - itemize) into Card field ID 6 of Card ID 3260
end mouseUp
-- part 25 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=109 top=204 right=219 bottom=177
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Multiply
----- HyperTalk script -----
on mouseUp
Set cursor to 4
Put Card field ID 3 of Card ID 8013 into temp -- line 6e
If temp = 0 then
Send "MouseUp" to Card button ID 6 of Card ID 8013
Put Card field ID 3 of Card ID 8013 into Temp
end IF
Put (temp * 1900) into Card field ID 17 of Card ID 3260 -- line 35
end mouseUp
-- part 26 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=6 top=59 right=74 bottom=69
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
-- part contents for background part 26
----- text -----
10
-- part contents for background part 13
----- text -----
Tax Compu - tation
-- part contents for background part 18
----- text -----
page 16 for the amount to enter on line 33b.
-- part contents for background part 16
----- text -----
If you checked any box on line 32a, b, or c and you don't itemize, see
-- part contents for background part 15
----- text -----
Caution:
-- part contents for card part 1
----- text -----
33b. Standard deduction. Read CAUTION to left. If it applies, see
page 16 for the amount to enter.
-- part contents for card part 2
----- text -----
If CAUTION doesn't apply and your filing status from page 1 is:
-- part contents for card part 3
----- text -----
Single or Head of Household, enter $2540
Married filing jointly or Qualifying widow(er), enter $3760
Married filing seperately, enter $ 1880
-- part contents for card part 4
----- text -----
33b
-- part contents for card part 7
----- text -----
34
-- part contents for card part 20
----- text -----
35
-- part contents for card part 19
----- text -----
36
-- part contents for card part 15
----- text -----
34. line 33a or 33b, whichever applies, from
line 31. enter the result here. . . . . . . . . . . . . . . . . . . . . . .
-- part contents for card part 16
----- text -----
35. $1900 by the total number of exemptions
claimed on line 6e or see chart on page 16. . . . . . . . . . . . . .
-- part contents for card part 18
----- text -----
36. Taxable income. line 35 from line 34. Enter
the result (but not less than zero). . . . . . . . . . . . . . . . . . . . . . .
-- part contents for background part 20
----- text -----
Continue to next card
-- part contents for card part 26
----- text -----
(Continued)
-- part contents for card part 5
----- text -----
0
-- part contents for card part 6
----- text -----
0
-- part contents for card part 17
----- text -----
0
-- part contents for card part 21
----- text -----
0
-- part contents for background part 40
----- text -----
4:06 PM